home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / user / Graph.p < prev    next >
Text File  |  2002-10-27  |  8KB  |  170 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " close " \
  3.   #( #[ 16r11 16r80 16r00 16rF2 16r10 16r80 16r00 16rF2 16r5D 16rF3 16rF5 \
  4.        ] \
  5.     #( #close  )) >
  6.  
  7. <primitive 112 pTempVar 2  " domain " \
  8.   #( #[ 16r1D 16rA6 16r0A 16r11 16r30 16r0B 16r12 16r1D 16r0A 16r1F 16r0A \
  9.         16r11 16r0B 16r12 16rF3 16rF5] \
  10.     #( '<->'  )) >
  11.  
  12. <primitive 112 pTempVar 3  " range " \
  13.   #( #[ 16r1C 16rA6 16r0A 16r11 16r30 16r0B 16r12 16r1C 16r0A 16r1F 16r0A \
  14.         16r11 16r0B 16r12 16rF3 16rF5] \
  15.     #( '<->'  )) >
  16.  
  17. <primitive 112 pTempVar 4  " yScale " \
  18.   #( #[ 16r5A 16r19 16rC2 16rF3 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " xScale " \
  22.   #( #[ 16r18 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " tellDomain " \
  26.   #( #[ 16r30 16r1D 16rA6 16r0A 16r11 16r0B 16r12 16r31 16r0B 16r12 16r1D \
  27.         16r0A 16r1F 16r0A 16r11 16r0B 16r12 16rA8 16rF2 16rF5] \
  28.     #( 'Domain is ' '<->'  )) >
  29.  
  30. <primitive 112 pTempVar 7  " tellRange " \
  31.   #( #[ 16r30 16r1C 16rA6 16r0A 16r11 16r0B 16r12 16r31 16r0B 16r12 16r1C \
  32.         16r0A 16r1F 16r0A 16r11 16r0B 16r12 16rA8 16rF2 16rF5] \
  33.     #( 'Range  is ' '<->'  )) >
  34.  
  35. <primitive 112 pTempVar 8  " tellScales " \
  36.   #( #[ 16r30 16r18 16r0B 16r12 16r31 16r0B 16r12 16r51 16r81 16r02 16r19 \
  37.         16rC2 16rA8 16rF2 16rF5] \
  38.     #( 'Scales are:  xscale = ' ', yscale = ' #,-  )) >
  39.  
  40. <primitive 112 pTempVar 9  " drawLabel:at: " \
  41.   #( #[ 16r20 16r21 16r22 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  42.        ] \
  43.     #( #drawText:at: #refreshWindowFrame  )) >
  44.  
  45. <primitive 112 pTempVar 10  " drawYAxis:numTicks:color: " \
  46.   #( #[ 16r1C 16r21 16r0B 16r20 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  47.         16r20 16r21 16r1D 16rA6 16r21 16r1D 16r0A 16r1F 16r84 16r01 \
  48.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1D 16r0A 16r1F 16r1D \
  49.         16rA6 16rC1 16r22 16rBF 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  50.         16r06 16r0D 16r26 16r24 16rC2 16r1D 16rA6 16rC0 16r75 16r20 \
  51.         16r21 16r25 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  52.         16rF2 16r33 16rA8 16rF2 16r11 16r80 16r04 16rF2 16rF5] \
  53.     #( #setPen: #drawLine:y1:x2:y2: #drawYTick:y: 'Y-Axis outside range!' \
  54.         #refreshWindowFrame  )) >
  55.  
  56. <primitive 112 pTempVar 11  " drawXAxis:numTicks:color: " \
  57.   #( #[ 16r1D 16r21 16r0B 16r20 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  58.         16r20 16r1C 16rA6 16r21 16r1C 16r0A 16r1F 16r21 16r84 16r01 \
  59.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1C 16r0A 16r1F 16r1C \
  60.         16rA6 16rC1 16r22 16rBF 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  61.         16r06 16r0D 16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 \
  62.         16r25 16r21 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  63.         16rF2 16r33 16rA8 16rF2 16r11 16r80 16r04 16rF2 16rF5] \
  64.     #( #setPen: #drawLine:y1:x2:y2: #drawXTick:y: 'X-Axis outside domain!' \
  65.         #refreshWindowFrame  )) >
  66.  
  67. <primitive 112 pTempVar 12  " drawGrid:y:color: " \
  68.   #( #[ 16r20 16r23 16r81 16r00 16rF2 16r1C 16r0A 16r1F 16r1C 16rA6 16rC1 \
  69.         16r21 16rBF 16r74 16r51 16r21 16r51 16rD4 16rE1 16r06 16r12 \
  70.         16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 16r25 16r1D \
  71.         16r0A 16r1F 16r25 16r1D 16rA6 16r84 16r01 16rF3 16rB3 16rF2 \
  72.         16r1D 16r0A 16r1F 16r1D 16rA6 16rC1 16r22 16rBF 16r74 16r51 \
  73.         16r22 16r51 16rD4 16rE1 16r06 16r12 16r26 16r24 16rC2 16r1D \
  74.         16rA6 16rC0 16r75 16r20 16r1C 16rA6 16r25 16r1C 16r0A 16r1F \
  75.         16r25 16r84 16r01 16rF3 16rB3 16rF2 16r11 16r80 16r02 16rF2 \
  76.         16rF5] \
  77.     #( #setPen: #drawLine:y1:x2:y2: #refreshWindowFrame  )) >
  78.  
  79. <primitive 112 pTempVar 13  " drawYTick:y: " \
  80.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r53 \
  81.         16rC0 16r18 16r21 16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 16r0A \
  82.         16r29 16r0B 16r33 16rF2 16r23 16r17 16r19 16r22 16r1D 16rA6 \
  83.         16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r34 16rF2 16r24 16r16 \
  84.         16r53 16rC1 16r18 16r21 16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 \
  85.         16r0A 16r29 16r0B 16r33 16rF2 16r24 16r17 16r19 16r22 16r1D \
  86.         16rA6 16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r34 16rF2 16r20 \
  87.         16r23 16r24 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  88.        ] \
  89.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  90.  
  91. <primitive 112 pTempVar 14  " drawXTick:y: " \
  92.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r18 \
  93.         16r21 16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 16r0A 16r29 16r0B \
  94.         16r33 16rF2 16r23 16r17 16r53 16rC0 16r19 16r22 16r1D 16rA6 \
  95.         16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r34 16rF2 16r24 16r16 \
  96.         16r18 16r21 16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 16r0A 16r29 \
  97.         16r0B 16r33 16rF2 16r24 16r17 16r53 16rC1 16r19 16r22 16r1D \
  98.         16rA6 16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r34 16rF2 16r20 \
  99.         16r23 16r24 16r92 16r00 16rF2 16r11 16r80 16r01 16rF2 16rF5 \
  100.        ] \
  101.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  102.  
  103. <primitive 112 pTempVar 15  " drawLine:y1:x2:y2: " \
  104.   #( #[ 16r05 16r35 16rA0 16r75 16r05 16r35 16rA0 16r76 16r25 16r16 16r18 \
  105.         16r21 16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 16r0A 16r29 16r0B \
  106.         16r33 16rF2 16r25 16r17 16r19 16r22 16r1D 16rA6 16rC1 16rC2 \
  107.         16rC0 16r0A 16r29 16r0B 16r34 16rF2 16r26 16r16 16r18 16r23 \
  108.         16r1C 16r0A 16r1F 16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r33 \
  109.         16rF2 16r26 16r17 16r19 16r24 16r1D 16rA6 16rC1 16rC2 16rC0 \
  110.         16r0A 16r29 16r0B 16r34 16rF2 16r20 16r25 16r26 16r92 16r00 \
  111.         16rF2 16r11 16r80 16r01 16rF2 16rF5] \
  112.     #( #drawLineFrom:to: #refreshWindowFrame  )) >
  113.  
  114. <primitive 112 pTempVar 16  " plotPoint:y: " \
  115.   #( #[ 16r05 16r35 16rA0 16r73 16r23 16r16 16r18 16r21 16r1C 16r0A 16r1F \
  116.         16rC1 16rC2 16rC0 16r0A 16r29 16r0B 16r33 16rF2 16r23 16r17 \
  117.         16r19 16r22 16r1D 16rA6 16rC1 16rC2 16rC0 16r0A 16r29 16r0B \
  118.         16r34 16rF2 16r20 16r23 16r91 16r00 16rF2 16rF5] \
  119.     #( #drawPixelAt:  )) >
  120.  
  121. <primitive 112 pTempVar 17  " setYAxisFrom:to:by: " \
  122.   #( #[ 16r1D 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6B 16r17 16r15 \
  123.         16rC1 16r21 16r22 16rC1 16rBF 16r69 16rF5] \
  124.     #( #from:to:by:  )) >
  125.  
  126. <primitive 112 pTempVar 18  " setXAxisFrom:to:by: " \
  127.   #( #[ 16r1C 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6A 16r16 16r14 \
  128.         16rC1 16r22 16r21 16rC1 16rBF 16r68 16rF5] \
  129.     #( #from:to:by:  )) >
  130.  
  131. <primitive 112 pTempVar 19  " setPen: " \
  132.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16rF5] \
  133.     #( #setAPen:  )) >
  134.  
  135. <primitive 112 pTempVar 20  " refreshGraphPaper " \
  136.   #( #[ 16r11 16r80 16r00 16rF2 16rF5] \
  137.     #( #refreshWindowFrame  )) >
  138.  
  139. <primitive 112 pTempVar 21  " open:from:to: " \
  140.   #( #[ 16r40 16r12 16rB0 16r60 16r41 16r13 16rB0 16r61 16r10 16r21 16r81 \
  141.         16r02 16rF2 16r20 16r22 16r23 16r82 16r03 16rF2 16r10 16r54 \
  142.         16r81 16r04 16rF2 16r10 16r80 16r05 16rF2 16r11 16r36 16r81 \
  143.         16r07 16rF2 16r11 16r12 16r81 16r08 16rF2 16rF5] \
  144.     #( #Screen #Window #setScreenModeID: #setSizeFrom:to: #setDepth: #open \
  145.         16r11800 #setFlags: #openOnScreen:  )) >
  146.  
  147. <primitive 112 pTempVar 22  " setSizeFrom:to: " \
  148.   #( #[ 16r10 16r21 16r81 16r00 16rF2 16r10 16r22 16r81 16r01 16rF2 16r11 \
  149.         16r21 16r81 16r02 16rF2 16r11 16r22 16r81 16r03 16rF2 16r21 \
  150.         16r0A 16r31 16r64 16r21 16r0A 16r32 16r65 16r22 16r0A 16r31 \
  151.         16r66 16r22 16r0A 16r32 16r67 16rF5] \
  152.     #( #setOrigin: #setScreenSize: #setWindowOrigin: #setWindowSize:  )) >
  153.  
  154. <primitive 112 pTempVar 23  " initialize:winTitle: " \
  155.   #( #[ 16r21 16r62 16r22 16r63 16r20 16r13 16r91 16r00 16rF2 16r05 16r2E \
  156.         16rA0 16r6C 16r05 16r2E 16rA0 16r6D 16r31 16r6A 16r32 16r6B \
  157.         16r33 16r68 16r34 16r69 16rF5] \
  158.     #( #new: 0.0 0.0 1.0 1.0  )) >
  159.  
  160. <primitive 98 #Graph \
  161.   <primitive 97 #Graph #Painter #User/graph.st \
  162.    #(  #scr #win #ts #tw #x #y #w #h #xscale #yscale #xinc #yinc #range #domain ) \
  163.    #( #close #domain #range #yScale #xScale #tellDomain #tellRange  \
  164.        #tellScales #drawLabel:at: #drawYAxis:numTicks:color: #drawXAxis:numTicks:color:  \
  165.        #drawGrid:y:color: #drawYTick:y: #drawXTick:y: #drawLine:y1:x2:y2: #plotPoint:y:  \
  166.        #setYAxisFrom:to:by: #setXAxisFrom:to:by: #setPen: #refreshGraphPaper #open:from:to:  \
  167.        #setSizeFrom:to: #initialize:winTitle:  ) \
  168.   pTempVar 7 10 > #ordinary >
  169.  
  170.